home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / summariz.sit / Summarizer 1.7 / background_2737.txt < prev    next >
Text File  |  1988-03-18  |  16KB  |  667 lines
  1. -- background: 2737 from stack: in.7
  2. -- bmap block id: 5731
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: BlankTopicBkgnd
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=0 top=1 right=16 bottom=17
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Quit
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if short name of this card is "NtTmplt" then exit mouseup
  23.   hide tool window
  24.   answer "Perhaps you accidently pressed Quit?" with "Yes I did" or "No I didn't"
  25.   if it is "No I didn't" then domenu "Quit Hypercard"
  26. end mouseUp
  27.  
  28.  
  29.  
  30.  
  31. -- part 9 (field)
  32. -- low flags: 01
  33. -- high flags: 0000
  34. -- rect: left=20 top=0 right=17 bottom=449
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 3
  39. -- text size: 12
  40. -- style flags: 256
  41. -- line height: 16
  42. -- part name: HeaderFld
  43.  
  44.  
  45. -- part 31 (button)
  46. -- low flags: 00
  47. -- high flags: 0000
  48. -- rect: left=0 top=19 right=33 bottom=17
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 0
  53. -- text size: 12
  54. -- style flags: 0
  55. -- line height: 16
  56. -- part name: Chapter List
  57. ----- HyperTalk script -----
  58. on mouseUp
  59.   if short name of this card is "NtTmplt" then exit mouseup
  60.   go to card "ChptLstCrd"
  61. end mouseUp
  62.  
  63.  
  64.  
  65.  
  66. -- part 32 (button)
  67. -- low flags: 00
  68. -- high flags: 0000
  69. -- rect: left=0 top=36 right=50 bottom=17
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Topic List
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   if short name of this card is "NtTmplt" then exit mouseup
  81.   global Chapt
  82.   go to card Chapt
  83. end mouseUp
  84.  
  85.  
  86.  
  87.  
  88. -- part 30 (button)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=0 top=53 right=68 bottom=17
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Delete Page
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   if short name of this card is "NtTmplt" then exit mouseup
  103.   if not(short name of this card is "@") then
  104.     answer "Use ΓÇÿDeleteΓÇÖ to delete ΓÇÿtable of contents pageΓÇÖ"
  105.     exit mouseup
  106.   end if
  107.   answer "About to Delete the current page..." with "Cancel" or "OK"
  108.   if it is "Cancel" then exit mouseup
  109.   if short name of this card is "@" then
  110.     set cursor to 4
  111.     set lockscreen to "true"
  112.     domenu "delete card"
  113.     put short name of this card into RCard
  114.     if RCard is "@" then
  115.     else
  116.       go to prev card
  117.       choose button tool
  118.       click at loc of button "NxtPg"
  119.       domenu "clear button"
  120.       choose browse tool
  121.     end if
  122.     if the number of card fields is 1
  123.     then put IBeam("TxtFld") into dummy
  124.     flash 2
  125.   end if
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 33 (button)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=0 top=69 right=84 bottom=17
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: New Page
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   if short name of this card is "NtTmplt" then exit mouseup
  145.   answer "Insert new page following this one?" with "Cancel" or "OK"
  146.   if it is "Cancel" then exit mouseup
  147.   set cursor to 4
  148.   MakePage
  149.   flash 2
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 42 (button)
  155. -- low flags: 00
  156. -- high flags: 0000
  157. -- rect: left=0 top=87 right=102 bottom=17
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: GetPaintDoc
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   if the number of card fields is 1 then
  169.     beep 1
  170.     answer "Text field exits." with "OK"
  171.     answer "Import Paint File --> Clipboard?" with "Cancel" or "OK"
  172.     if it is "Cancel" then
  173.       exit mouseup
  174.     end if
  175.   else
  176.     answer "Import Paint File --> Clipboard?" with "Cancel" or "OK"
  177.     if it is "Cancel" then exit mouseup
  178.   end if
  179.   hide tool window
  180.   set lockscreen to true
  181.   choose select tool
  182.   domenu "Import Paint..."
  183.   domenu "Select All"
  184.   domenu "Transparent"
  185.   drag from 0,0 to 512,342 with commandKey
  186.   type "x" with commandKey
  187.   type "v" with commandKey
  188.   domenu "Transparent"
  189.   show tool window
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 46 (button)
  195. -- low flags: 00
  196. -- high flags: 0000
  197. -- rect: left=0 top=103 right=119 bottom=17
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 1
  201. -- font id: 0
  202. -- text size: 12
  203. -- style flags: 0
  204. -- line height: 16
  205. -- part name: MakePaintDoc
  206. ----- HyperTalk script -----
  207. on mouseUp
  208.   answer "Export this window to a MacPaint file?" with "Yes" or "Cancel"
  209.   if it is "Yes" then
  210.     choose text tool
  211.     domenu "Export Paint..."
  212.     choose browse tool
  213.   end if
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 45 (button)
  219. -- low flags: 00
  220. -- high flags: 0000
  221. -- rect: left=0 top=120 right=136 bottom=17
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: ShowHide Tools
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   get visible of tool window
  233.   if it is false then
  234.     show tool window
  235.   else
  236.     hide tool window
  237.   end if
  238. end mouseUp
  239.  
  240.  
  241.  
  242. -- part 38 (button)
  243. -- low flags: 00
  244. -- high flags: 0000
  245. -- rect: left=0 top=155 right=170 bottom=17
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: FontSpacing
  254. ----- HyperTalk script -----
  255. on mouseUp
  256.   if the number of card fields is 0 then
  257.     answer "Can't change font spacing - no field!"
  258.     exit mouseup
  259.   else
  260.     answer "Choose a Text Font Style" with "Mono-spaced" or "Proportional" or "Cancel"
  261.     if it is "Mono-spaced" then
  262.       set textFont of card field "TxtFld" to Monaco
  263.       put IBeam("TxtFld") into dummy
  264.     end if
  265.     if it is "Proportional"
  266.     then set textFont of card field "TxtFld" to Geneva
  267.     if it is "Cancel" then
  268.       put IBeam("TxtFld") into dummy
  269.       exit mouseup
  270.     end if
  271.     if the number of card fields is 1
  272.     then put IBeam("TxtFld") into dummy
  273.   end if
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 35 (button)
  279. -- low flags: 00
  280. -- high flags: 0000
  281. -- rect: left=0 top=171 right=187 bottom=17
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: ChangeWindUse
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   global WindType
  293.   if the number of card fields is 0 then
  294.     put "Create a new text field?" into prompt
  295.     answer prompt with "Cancel" or "OK"
  296.     if it is "Cancel" then exit mouseup
  297.   end if
  298.   put "Set Text Field Format to..." into prompt
  299.   answer prompt with "Scroll" or "Cancel" or "Reg Text"
  300.   if it is "Cancel" then
  301.     exit mouseup
  302.   else
  303.     put it into WindType
  304.   end if
  305.   set lockscreen to "true"
  306.   if WindType is "Scroll" or it is "Reg Text" then
  307.     if the number of card fields is 0 then
  308.       MakeField
  309.       flash 2
  310.     else
  311.       get style of card field "TxtFld"
  312.       if it is "transparent" and WindType is "Scroll" then set Style of card field "Txtfld" to scrolling
  313.       if it is "scrolling" and WindType is "Reg Text" then
  314.         answer "Any text beyond the window will be Hidden!" with "Go Ahead" or "Cancel"
  315.         if it is "go ahead" then
  316.           set Style of card field "Txtfld" to transparent
  317.         else
  318.           --  Cancel
  319.         end if
  320.       end if
  321.       put IBeam("TxtFld") into dummy
  322.     end if
  323.   end if
  324. end mouseUp
  325.  
  326.  
  327.  
  328. -- part 39 (button)
  329. -- low flags: 00
  330. -- high flags: 0000
  331. -- rect: left=0 top=188 right=204 bottom=17
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: DeleteFld
  340. ----- HyperTalk script -----
  341. on mouseUp
  342.   if the number of card fields is 0 then
  343.     answer "There is no text field to delete!"
  344.     exit mouseup
  345.   else
  346.     answer "Delete this text field?" with "Cancel" or "OK"
  347.     if it is "OK" then
  348.       set lockscreen to "true"
  349.       if the number of words in card field "TxtFld" > 0 then
  350.         answer "Delete a field containing text?" with "Cancel" or "OK"
  351.         if it is "Cancel" then exit mouseup
  352.       end if
  353.       choose field tool
  354.       click at loc of card field "Txtfld"
  355.       domenu "clear field"
  356.       choose browse tool
  357.       flash 2
  358.     end if
  359.   end if
  360. end mouseUp
  361.  
  362.  
  363.  
  364. -- part 51 (button)
  365. -- low flags: 00
  366. -- high flags: 0000
  367. -- rect: left=0 top=137 right=152 bottom=17
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 0 / 0
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: SurSelect
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.   global ptype,Xit
  379.   put false into Xit
  380.   answer "About to Cut Pict to Clipboard..." with "Cancel" or "OK"
  381.   if it is "Cancel" then exit mouseup
  382.   choose select tool
  383.   drag from 0,0 to 512,342 with commandKey
  384.   type "x" with commandKey
  385.   if Xit then exit mouseup
  386.   choose browse tool
  387. end mouseUp
  388.  
  389.  
  390.  
  391. -- part 58 (button)
  392. -- low flags: 00
  393. -- high flags: 0000
  394. -- rect: left=0 top=205 right=221 bottom=17
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 1
  398. -- font id: 0
  399. -- text size: 12
  400. -- style flags: 0
  401. -- line height: 16
  402. -- part name: TextFile
  403. ----- HyperTalk script -----
  404. on mouseUp
  405.   put id of this card into WasHere
  406.   answer "Send all text fields to textfile?" with "Cancel" or "OK"
  407.   if it is empty or it is "Cancel" then exit mouseup
  408.   get short name of this stack
  409.   put it & ".txt" into prompt
  410.   Get PutFile("Save text as:",prompt)
  411.   if it is empty then exit mouseup
  412.   put it into flName
  413.   answer "Remove trailing" && quote & "RETURNs?" & quote with "Cancel" or "OK"
  414.   if it is "OK" then
  415.     set cursor to 4
  416.     set lockscreen to true
  417.     go to card "NtTmplt"
  418.     repeat while short name of this card is not "Welcome"
  419.       if the number of card fields is 1 then
  420.         repeat while last line of card field "TxtFld" is empty
  421.           delete last line of card field "TxtFld"
  422.           if last line of card field "TxtFld" is first line of card field "TxtFld" then exit repeat
  423.         end repeat
  424.       end if
  425.       go to next card
  426.     end repeat
  427.   end if
  428.   beep 1
  429.   put "Flashing screen signals completion of field export."
  430.   open file flName
  431.   go to card "ChptLstCrd"
  432.   put card field "ChptOrdrFld" into ChptPrntOrdr
  433.   repeat with x = 1 to the number of lines in ChptPrntOrdr
  434.     put line x of ChptPrntOrdr into ChaptNum
  435.     put Bs10To26(ChaptNum) into Chapt
  436.     go to card Chapt
  437.     put field "TpcOrdrFld" into TpcPrntOrdr
  438.     repeat with y = 1 to the number of lines in TpcPrntOrdr
  439.       put line y of TpcPrntOrdr into TpcNum
  440.       go to card Chapt & TpcNum
  441.       if the number of card fields is 1 then
  442.         write card field "txtfld" to file flName
  443.         write return & return to file flName
  444.         go to next card
  445.         repeat while short name of this card is "@"
  446.           if the number of card fields is 1 then
  447.             write card field "txtfld" to file flName
  448.             write return & return to file flName
  449.             go to next card
  450.           end if
  451.         end repeat
  452.       end if
  453.     end repeat
  454.   end repeat
  455.   close file flName
  456.   hide msg
  457.   go to WasHere
  458.   flash 2
  459. end mouseUp
  460.  
  461.  
  462.  
  463. -- part 59 (button)
  464. -- low flags: 00
  465. -- high flags: 0000
  466. -- rect: left=0 top=291 right=306 bottom=17
  467. -- title width / last selected line: 0
  468. -- icon id / first selected line: 0 / 0
  469. -- text alignment: 1
  470. -- font id: 0
  471. -- text size: 12
  472. -- style flags: 0
  473. -- line height: 16
  474. -- part name: PrintOptions
  475. ----- HyperTalk script -----
  476. on mouseUp
  477.   if short name of this card is "NtTmplt" then exit mouseup
  478.   answer "Choose a Print Option" with "This Card" or "All Cards" or "Cancel"
  479.   put short name of this card into WasHere
  480.   if it is "Cancel" then exit mouseup
  481.   if it is "All Cards" then
  482.     go to card "ChptLstCrd"
  483.     put card field "ChptOrdrFld" into ChptPrntOrdr
  484.     repeat with x = 1 to the number of lines in ChptPrntOrdr
  485.       put line x of ChptPrntOrdr into ChaptNum
  486.       put Bs10To26(ChaptNum) into Chapt
  487.       go to card Chapt
  488.       put field "TpcOrdrFld" into TpcPrntOrdr
  489.       repeat with y = 1 to the number of lines in TpcPrntOrdr
  490.         put line y of TpcPrntOrdr into TpcNum
  491.         go to card Chapt & TpcNum
  492.         domenu "print card"
  493.         go to next card
  494.         repeat while short name of this card is "@"
  495.           domenu "print card"
  496.           go to next card
  497.         end repeat
  498.       end repeat
  499.     end repeat
  500.     go to card WasHere
  501.     flash 2
  502.     exit mouseup
  503.   end if
  504.   if it is "This Card"
  505.   then domenu "print card"
  506. end mouseUp
  507.  
  508.  
  509.  
  510. -- part 61 (button)
  511. -- low flags: 00
  512. -- high flags: 0000
  513. -- rect: left=0 top=222 right=238 bottom=17
  514. -- title width / last selected line: 0
  515. -- icon id / first selected line: 0 / 0
  516. -- text alignment: 1
  517. -- font id: 0
  518. -- text size: 12
  519. -- style flags: 0
  520. -- line height: 16
  521. -- part name: TxtImport
  522. ----- HyperTalk script -----
  523. on mouseUp
  524.   global WindType, Xit, flName
  525.   if the number of card fields is 0 then
  526.     answer "There is no field to import text to!" with "OK"
  527.     exit mouseup
  528.   end if
  529.   answer "Choose a text file to import" with "Cancel" or "OK"
  530.   if it is "Cancel" then exit mouseup
  531.   Get fileName("TEXT")
  532.   if it is empty then exit mouseup
  533.   put it into flName
  534.   open file flName
  535.   SendTxtToFld
  536.   if Xit then
  537.     close file flName
  538.     hide msg
  539.     exit mouseup
  540.   end if
  541.   repeat while true
  542.     answer "Do you want to read more to this page?" with "Finished" or "Read More" or "Next Page"
  543.     if it is "Finished" then
  544.       close file flName
  545.       hide msg
  546.       exit mouseup
  547.     end if
  548.     if it is "Next Page" then
  549.       MakePage
  550.       put "Set Text Field Format to..." into prompt
  551.       answer prompt with "Scroll" or "Reg Text"
  552.       put it into WindType
  553.       MakeField
  554.       set lockscreen to false
  555.     end if
  556.     SendTxtToFld
  557.     if Xit then
  558.       close file flName
  559.       hide msg
  560.       exit mouseup
  561.     end if
  562.   end repeat
  563. end mouseUp
  564.  
  565.  
  566.  
  567. -- part 62 (button)
  568. -- low flags: 00
  569. -- high flags: 0000
  570. -- rect: left=0 top=325 right=342 bottom=17
  571. -- title width / last selected line: 0
  572. -- icon id / first selected line: 0 / 0
  573. -- text alignment: 1
  574. -- font id: 0
  575. -- text size: 12
  576. -- style flags: 0
  577. -- line height: 16
  578. -- part name: BkgndBtn
  579. ----- HyperTalk script -----
  580. on mouseUp
  581.   type "b" with commandKey
  582. end mouseUp
  583.  
  584.  
  585.  
  586. -- part 63 (button)
  587. -- low flags: 00
  588. -- high flags: 0000
  589. -- rect: left=0 top=308 right=322 bottom=17
  590. -- title width / last selected line: 0
  591. -- icon id / first selected line: 0 / 0
  592. -- text alignment: 1
  593. -- font id: 0
  594. -- text size: 12
  595. -- style flags: 0
  596. -- line height: 16
  597. -- part name: MenuBtn
  598. ----- HyperTalk script -----
  599. on mouseUp
  600.   type NumtoChar(32) with commandKey
  601. end mouseUp
  602.  
  603.  
  604.  
  605. -- part 64 (button)
  606. -- low flags: 00
  607. -- high flags: 0000
  608. -- rect: left=0 top=273 right=289 bottom=17
  609. -- title width / last selected line: 0
  610. -- icon id / first selected line: 0 / 0
  611. -- text alignment: 1
  612. -- font id: 0
  613. -- text size: 12
  614. -- style flags: 0
  615. -- line height: 16
  616. -- part name: ScrapBtn
  617. ----- HyperTalk script -----
  618. on mouseUp
  619.   domenu "Scrapbook"
  620. end mouseUp
  621.  
  622.  
  623.  
  624. -- part 65 (button)
  625. -- low flags: 00
  626. -- high flags: 0000
  627. -- rect: left=0 top=256 right=271 bottom=17
  628. -- title width / last selected line: 0
  629. -- icon id / first selected line: 0 / 0
  630. -- text alignment: 1
  631. -- font id: 0
  632. -- text size: 12
  633. -- style flags: 0
  634. -- line height: 16
  635. -- part name: PasteBtn
  636. ----- HyperTalk script -----
  637. on mouseup
  638.   global ptype
  639.   type "v" with commandkey
  640.   if ptype is "paste picture"
  641.   then show tool window
  642. end mouseup
  643.  
  644.  
  645. -- part 66 (button)
  646. -- low flags: 00
  647. -- high flags: 0000
  648. -- rect: left=0 top=239 right=255 bottom=17
  649. -- title width / last selected line: 0
  650. -- icon id / first selected line: 0 / 0
  651. -- text alignment: 1
  652. -- font id: 0
  653. -- text size: 12
  654. -- style flags: 0
  655. -- line height: 16
  656. -- part name: FtoC
  657. ----- HyperTalk script -----
  658. on mouseUp
  659.   if the selection is empty then
  660.     answer "You must select text to copy!" with "OK"
  661.     exit mouseup
  662.   end if
  663.   answer "About to copy text to clipboard" with "OK"
  664.   type "c" with commandkey
  665. end mouseUp
  666.  
  667.